Attribute VB_Name = "ModBahasa"
Public Sub bahasa()
Dim bhs As New ClSINI
bhs.FileName = App.path & "\bahasa.ini"
bhs.ApplicationKey = "bahasa"
With FrmMain
.Label28.Caption = bhs.GetValue("Label28", "1")
.Cmdjual.Caption = bhs.GetValue("Cmdjual", "1")
.cmdlaporanpenjualan.Caption = bhs.GetValue("cmdlaporanpenjualan", "1")
.cmdlaporanbilling.Caption = bhs.GetValue("cmdlaporanbilling", "1")
.cmdpendaftaranuser.Caption = bhs.GetValue("cmdpendaftaranuser", "1")
.cmdSpaceImpact.Caption = bhs.GetValue("cmdSpaceImpact", "1")
.cmdMp3.Caption = bhs.GetValue("cmdMp3", "1")
.cmdstyle.Caption = bhs.GetValue("cmdstyle", "1")
.cmdExit.Caption = bhs.GetValue("cmdExit", "1")
.cmdjam.Caption = bhs.GetValue("cmdjam", "1")
.cmdLstct.Caption = bhs.GetValue("cmdlist", "1")
.CmdTanggal.Caption = bhs.GetValue("CmdTanggal", "1")
.cmdStatus.Caption = bhs.GetValue("cmdStatus", "1")
.mnuserve.Caption = bhs.GetValue("mnuserve", "1")
.mnuclient.Caption = bhs.GetValue("mnuclient", "1")
.mnustop.Caption = bhs.GetValue("mnustop", "1")
.mnupindah.Caption = bhs.GetValue("mnupindah", "1")
.mnushutdown.Caption = bhs.GetValue("mnushutdown", "1")
.mnuactiv.Caption = bhs.GetValue("mnuactiv", "1")
.mnuunlock.Caption = bhs.GetValue("mnuunlock", "1")
.asss.Caption = bhs.GetValue("asss", "1")
.mnutask1.Caption = bhs.GetValue("mnutask1", "1")
.rad.Caption = bhs.GetValue("rad", "1")
.mnuutil.Caption = bhs.GetValue("mnuutil", "1")
.mnupesan.Caption = bhs.GetValue("mnupesan", "1")
.mnubackup.Caption = bhs.GetValue("mnubackup", "1")
.mnumember.Caption = bhs.GetValue("mnumember", "1")
.MnuPayFirst.Caption = bhs.GetValue("MnuPayFirst", "1")
.asds.Caption = bhs.GetValue("asds", "1")
.mnupassadmin.Caption = bhs.GetValue("mnupassadmin", "1")
.MnuDefense.Caption = bhs.GetValue("MnuDefense", "1")
.mnumati.Caption = bhs.GetValue("mnumati", "1")
.mnusettin.Caption = bhs.GetValue("mnusettin", "1")
.mnuconfig.Caption = bhs.GetValue("mnuconfig", "1")
.mnuuser.Caption = bhs.GetValue("mnuuser", "1")
.mnures.Caption = bhs.GetValue("mnures", "1")
.edit.Caption = bhs.GetValue("edit", "1")
.mnuchng.Caption = bhs.GetValue("mnuchng", "1")
.mnulapora.Caption = bhs.GetValue("mnulapora", "1")
.mnurekap.Caption = bhs.GetValue("mnurekap", "1")
.rnt.Caption = bhs.GetValue("rnt", "1")
.mnudeposit.Caption = bhs.GetValue("mnudeposit", "1")
.Relax.Caption = bhs.GetValue("Relax", "1")
.game.Caption = bhs.GetValue("game", "1")
.mnuhelpp.Caption = bhs.GetValue("mnuhelpp", "1")
.help.Caption = bhs.GetValue("help", "1")
.mnureg.Caption = bhs.GetValue("mnureg", "1")
.mnuabout.Caption = bhs.GetValue("mnuabout", "1")
.cdclosest.Caption = bhs.GetValue("cdclosest", "1")
.cmdchange.Caption = bhs.GetValue("cmdchange", "1")
.Exp.Caption = bhs.GetValue("Exp", "1")
.CmdPrint.Caption = bhs.GetValue("CmdPrint", "1")
.CmdBayar.Caption = bhs.GetValue("CmdBayar", "1")
.cmdTutup.Caption = bhs.GetValue("CmdTutup", "1")
.FrameBayar.Caption = bhs.GetValue("FrameBayar", "1")
.frmstyle.Caption = bhs.GetValue("frmstyle", "1")
.Label5.Caption = bhs.GetValue("Label5", "1")
.Label8.Caption = bhs.GetValue("Label8", "1")
.Label6.Caption = bhs.GetValue("Label6", "1")
.Label10.Caption = bhs.GetValue("Label10", "1")
.Label9.Caption = bhs.GetValue("Label9", "1")
.Label12.Caption = bhs.GetValue("Label12", "1")
.Label14.Caption = bhs.GetValue("Label14", "1")
.Label13.Caption = bhs.GetValue("Label13", "1")
.Label16.Caption = bhs.GetValue("Label16", "1")
.Label18.Caption = bhs.GetValue("Label18", "1")
.Label17.Caption = bhs.GetValue("Label17", "1")
.Label7.Caption = bhs.GetValue("Label7", "1")
.Label19.Caption = bhs.GetValue("Label19", "1")
.Label20.Caption = bhs.GetValue("Label20", "1")
.Label21.Caption = bhs.GetValue("Label21", "1")
.Label27.Caption = bhs.GetValue("Label27", "1")
.Label24.Caption = bhs.GetValue("Label24", "1")
.Label25.Caption = bhs.GetValue("Label25", "1")
.Label22.Caption = bhs.GetValue("Label22", "1")
.Label23.Caption = bhs.GetValue("Label23", "1")

End With
With FrmActivePorn
.BLacKFrame1.Caption = bhs.GetValue("ActivePornCap", "1")
.cmdActive.Caption = bhs.GetValue("CmdActivate", "1")
.CmdBatal.Caption = bhs.GetValue("Cmdbatal", "1")
.Label1.Caption = bhs.GetValue("NomorClient", "1")
End With
With FrmBackup
.Label1.Caption = bhs.GetValue("NamaFolder", "1")
.Label2.Caption = bhs.GetValue("Label2", "1")
.c.Caption = bhs.GetValue("c", "1")
.CmdBackup.Caption = bhs.GetValue("backup", "1")
.CmdBatal.Caption = bhs.GetValue("Cmdbatal", "1")
End With


End Sub


